home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / print'at.proc < prev    next >
Text File  |  2007-02-28  |  216b  |  10 lines
  1. 9000 //
  2. 9010 PROC PRINT'AT(ROW,COL,TEXT$) CLOSED
  3. 9020  ADDR:=1024+(ROW-1)*40
  4. 9030  POKE 209,ADDR MOD 256
  5. 9040  POKE 210,ADDR DIV 256
  6. 9050  POKE 211,COL-1
  7. 9060  POKE 214,ROW-1
  8. 9070  PRINT TEXT$,
  9. 9080 ENDPROC PRINT'AT
  10.